home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 4 / FM Towns Free Software Collection 4 - Disc 1.iso / heat / eupchk.cfg < prev    next >
Text File  |  1991-10-18  |  940b  |  50 lines
  1. /*******************************************************************
  2. /*
  3. /*  EUP ファイルの使用音色を調べるマクロ
  4. /*
  5. /*  　マクロにしては凶悪な(^^)，ファイル操作関数をテストするため作っ
  6. /*  てみた。
  7. /*
  8.  
  9.  
  10. main {
  11.     wind_init()
  12.     filename = "";
  13.     file_select("filename","EUPNONY 使用音色チェック","-1", "", "*.eup",0)
  14.     if ( VAL ! 0 )
  15.     {    return    (-1)
  16.     }
  17.     fopen( filename,"rb")
  18.     PATH = VAL;
  19.     if ( PATH < 0 )
  20.     {    wind_str_color(C_RED)
  21.         echo("\n\tFILE OPEN ERROR!!\n")
  22.         wait(5)
  23.         wind_close()
  24.         return    (-1)
  25.     }
  26.     echo("\n")
  27.  
  28.     fgets("TITLE",33,PATH)
  29.  
  30.     fseek(PATH,1762,0)
  31.     fgets("FM",9,PATH)
  32.  
  33.     fseek(PATH,1770,0)
  34.     fgets("PCM",8,PATH)
  35.     fclose(PATH)
  36.  
  37.     tabset(4)
  38.     echo("\tFILE  : \(filename)\n")
  39.     echo("\tTITLE : \(TITLE)\n")
  40.     echo("\tFM    : \(FM).fmb\n")
  41.     echo("\tPCM   : \(PCM).pmb\n")
  42.  
  43.     wait(5)
  44.     wind_close()
  45.     return (0)
  46. }
  47. #------------------    メモ ----------------------
  48. #    text_func(251)    /* BGM MENU    */
  49. #
  50.